sync on : sync rate 60 : hide mouse:cls 0:color backdrop 0
fog on:fog color 0:set ambient light 50
ObjectNumber=2:ImageNumber=2
wire=0:trans=0:cull=0:fliter=0:light=0:fog=0:ambient=0
set global object creation 0
rem Load asteroid model
set dir "models"
load object "ast4.x",ObjectNumber
set object specular ObjectNumber,0
rotate object ObjectNumber,270,0,0
set dir ".."
while mouseclick()<>2
SET OBJECT NORMALS ObjectNumber
if mouseclick()=1 then yrotate object ObjectNumber,wrapvalue(object angle y(ObjectNumber)+1)
sync
endwhile
while mouseclick()=1:endwhile
delete object ObjectNumber
end